home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos1.d64 / install pattns (.txt) < prev    next >
Commodore BASIC  |  1995-08-05  |  3KB  |  113 lines
  1. 10 REM GEOS PATTERN EDITOR INSTALLPGM
  2. 20 REM AUS 64ER SONDERHEFT 28
  3. 30 REM ALLES UEBER GEOS
  4. 40 REM ABGETIPPT VON JUERGEN HEINISCH
  5. 60 REM DEUTSCHE VERSION 1.0
  6. 70 :
  7. 100 DATA169,72,133,6,169,152
  8. 101 DATA133,7,169,0,133,9,169,136
  9. 102 DATA133,8,169,0,133,11,169,216
  10. 103 DATA133,10,169,48,133,13,169,0
  11. 104 DATA133,12,169,0,133,14,162,0
  12. 105 DATA189,58,82,157,0,208,232,208
  13. 106 DATA247,169,194,141,156,132,169,62
  14. 107 DATA141,155,132,96,0,0,0,0
  15. 108 DATA0,0,0,0,255,255,255,255
  16. 109 DATA255,255,255,255,170,85,170,85
  17. 110 DATA170,85,170,85,153,66,36,153
  18. 111 DATA153,36,66,153,251,245,251,245
  19. 112 DATA251,245,251,245,136,34,136,34
  20. 113 DATA136,34,136,34,119,221,119,221
  21. 114 DATA119,221,119,221,136,0,34,0
  22. 115 DATA136,0,34,0,119,255,221,255
  23. 116 DATA119,255,221,255,255,0,255,0
  24. 117 DATA255,0,255,0,85,85,85,85
  25. 118 DATA85,85,85,85,1,2,4,8
  26. 119 DATA16,32,64,128,128,64,32,16
  27. 120 DATA8,4,2,1,254,253,251,247
  28. 121 DATA239,223,191,127,127,191,223,239
  29. 122 DATA247,251,253,254,255,136,136,136
  30. 123 DATA255,136,136,136,255,128,128,128
  31. 124 DATA128,128,128,128,255,128,128,128
  32. 125 DATA255,8,8,8,8,28,34,193
  33. 126 DATA128,1,2,4,136,20,34,65
  34. 127 DATA136,0,170,0,128,64,32,0
  35. 128 DATA2,4,8,0,64,160,0,0
  36. 129 DATA4,10,0,0,130,68,57,68
  37. 130 DATA130,1,1,1,3,132,72,48
  38. 131 DATA12,2,1,1,248,116,34,71
  39. 132 DATA143,23,34,113,128,128
  40. 133 DATA65,62,8,8,20,227,85,160
  41. 134 DATA64,64,85,10,4,4,16,32
  42. 135 DATA84,170,255,2,4,8,32,80
  43. 136 DATA136,136,136,136,5,2,119,137
  44. 137 DATA143,143,119,152,248,248,191,0
  45. 138 DATA191,191,176,176,176,176,0,8
  46. 139 DATA20,42,85,42,20,8,0,0
  47. 140 :
  48. 141 DATA0,255,3,21,191,255,255,255
  49. 142 DATA128,0,1,128,0,1,159,231
  50. 143 DATA193,149,103,225,154,160,97,149
  51. 144 DATA97,249,154,160,241,149,96,97
  52. 145 DATA154,160,1,159,231,249,128,5
  53. 146 DATA41,134,6,73,143,4,153,159
  54. 147 DATA133,41,134,6,73,135,228,153
  55. 148 DATA131,231,249,128,0,1,128,0
  56. 149 DATA1,255,255,255,131,5,0,0
  57. 150 DATA82,0,96,0,82,71,46,80
  58. 151 DATA46,69,46,32,86,49,46,50
  59. 152 DATA0,0,0,0,0,0,0,0
  60. 153 DATA0,85,119,101,32,75,104,97
  61. 154 DATA116,99,104,105,107,105,97,110
  62. 155 :
  63. 200 PRINT"[147] [199]EOS [208]ATTERN [197]DITOR -- [201]NSTALL"
  64. 210 PRINT" ABGETIPPT VON [202]UERGEN [200]EINISCH , [214] 1.0"
  65. 220 PRINT" [194]ITTE [204]EERDISKETTE EINLEGEN             UND [210][197][212][213][210][206] DRUECKEN"
  66. 230 GETA$:IFA$<>CHR$(13)THEN230
  67. 240 PRINT" [215][193][210][206][213][206][199]: [196]IE [196]ISKETTE WIRD [198][207][210][205][193][212][201][197][210][212]! [146]"
  68. 250 PRINT" [194]ESTAETIGEN [211]IE DURCH [196]RUCK AUF [210][197][212][213][210][206]"
  69. 260 GETA$:IFA$<>CHR$(13)THEN260
  70. 270 PRINT" [194]ITTE WARTEN..";
  71. 280 OPEN1,8,15,"N:G.P.E. V1.2,64"
  72. 290 CLOSE1
  73. 300 PRINT".";:CS=0
  74. 310 OPEN1,8,15:OPEN2,8,2,"#"
  75. 320 PRINT#1,"U1 2 0 1 0"
  76. 330 PRINT#2,CHR$(1);CHR$(1);
  77. 340 FORI=0TO253:READB:CS=CS+B:PRINT#2,CHR$(B);:NEXT
  78. 350 PRINT#1,"U2 2 0 1 0"
  79. 360 PRINT".";
  80. 370 PRINT#1,"U1 2 0 1 1"
  81. 380 PRINT#2,CHR$(0);CHR$(61);
  82. 390 FORI=0TO61:READB:CS=CS+B:PRINT#2,CHR$(B);:NEXT
  83. 400 PRINT#1,"U2 2 0 1 1"
  84. 410 PRINT".";
  85. 420 PRINT#1,"U1 2 0 1 2"
  86. 422 FORI=0TO111:READB:CS=CS+B:PRINT#2,CHR$(B);:NEXT
  87. 424 PRINT#1,"U2 2 0 1 2"
  88. 426 PRINT".";
  89. 428 PRINT#1,"U1 2 0 18 1"
  90. 430 GET#2,B$:GET#2,B$
  91. 440 PRINT#2,CHR$(131);CHR$(1);CHR$(0);CHR$(65);
  92. 450 FORI=0TO14:PRINT#2,CHR$(160);:NEXT
  93. 460 PRINT#2,CHR$(1);CHR$(2);CHR$(0);CHR$(5);
  94. 470 PRINT#2,CHR$(86);CHR$(12);CHR$(28);CHR$(19);CHR$(45);CHR$(2);
  95. 480 PRINT#1,"U2 2 0 18 1"
  96. 482 PRINT#1,"B-A 0 1 0"
  97. 483 PRINT#1,"B-A 0 1 1"
  98. 484 PRINT#1,"B-A 0 1 2"
  99. 490 PRINT".":CLOSE2:CLOSE1
  100. 500 PRINT" [194]ITTE FUEHREN [211]IE DIE FOLGENDEN         [211]CHRITTE AUS:"
  101. 510 PRINT" [188] [203]OPIEREN [211]IE DAS [208]ROGRAMM [208][193][212][212][206]-        [197][196][201][212][207][210] AUF DIE NEUE [196]ISK."
  102. 520 PRINT" [188] [204]ADEN [211]IE [199][197][207][211] UND:"
  103. 525 PRINT"    [188] [203]ONVERTIEREN [211]IE DIE NEUE [196]ISK ZU       EINER [199][197][207][211]-[196]ISK."
  104. 530 PRINT"    [188] [199]EBEN [211]IE DEM [208]ROGRAMM [193] DEN            [206]AMEN [211][212][196] [208][193][212][212][206][211]."
  105. 540 PRINT"    [188] [196]UPLIZIEREN [211]IE [211][212][196] [208][193][212][212][206][211] UND          GEBEN [211]IE DEM [196]UPLIKAT";
  106. 545 PRINT" DEN [206]AMEN":PRINT"      [195][200][199] [208][193][212][212][206][211]."
  107. 570 PRINT" [188] [206]UN SOLLTEN [211]IE 3 [208]ROGRAMME HABEN:"
  108. 580 PRINT"    [188] '[211][212][196] [208][193][212][212][206][211]'"
  109. 590 PRINT"    [188] '[208][193][212][212][206]-[197][196][201][212][207][210]'"
  110. 600 PRINT"    [188] '[195][200][199] [208][193][212][212][206][211]'"
  111. 610 PRINT" [188] [203]OPIEREN [211]IE DIESE [208]ROGRAMME AUF IHRE   [199][197][207][211]-[193]RBEITSDISKETTE(N)."
  112. 680 PRINT"[208]RUEFSUMME DER [196][193][212][193]S:";CS
  113.